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Editorial. 



Línea directa 



PIRATAS DE GUANTE BLANCO 



La necesitamos más que el pan, la esperamos ce 
verdadera ansiedad, que la voten, que la 
aprueben de una vez, ¡SI!, la dichosa Ley de 
protección de los derechos de los programas. 
Aunque tales afirmaciones parezcan un poco 
desorbitadas, el caso es que la situación ya pasa 
de castaño oscuro. Los piratas campan por sus 
respetos copiando programas a troche y moche 
con todo el descaro del mundo. Buena prueba de 
ello es la noticia que aparecía, en la prensa diaria 
comentando la incautación de 22.000.000 
de pesetas en cintas piratas que se vendían con 
toda tranquilidad en el Rastro de Madrid. No es 
de extrañar pues que las empresas dedicadas a la 
producción de programas se lo piensen mucho 
antes de editar nuevas cassettes, pues, a pesar de 
las protecciones, los piratas están preparados 
para desproteger programas y hacer su agosto a 
costa de la buena fe de los usuarios. Pero si la 
piratería chapucera es un negocio, peor aún es la 
piratería de guante blanco. Nos referimos a 
ciertos señores que, haciendo caso omiso de la 
ética profesional, producen programas, en 
listado o en cinta, claramente inspirados en 
listados aparecidos en nuestra revista. Lo hemos 
está, denunciarlos 



públicamente desde nuestras páginas entraña 
una serie de dificultades. En primer h 



¡, que c; 



n los 



nombres de los programas, con lo que quienes 
los adquieren de buena fe, despistados por el 
título luego no pueden reclamar. Luego está el 
viejo truco de cambiar algunas líneas, modificar 
algunas instrucciones y variar ciertas datas. 
Resultado: el mismo perro con distinto collar, o 
mejor dicho el mismo programa. Hasta el 
momento pues, nos vemos imposibilitados, 
especialmente por el vacío legal existente, a 
efectuar denuncias precisas. Pero hemos de 
advertir que, cuando tengamos el soporte 
jurídico oportuno, iniciaremos todas las 
gestiones legajes en nuestras manos para acabar 
con quienes se aprovechan de nuestro trabajo y 
del trabajo de nuestros concursantes. Temblad 
pues piratas, la hora de pagar por vuestras 
fechorías está próxima. Mientras tanto 
¡prudencia!, mucho ojo a la hora de adquirir 
ciertas cintas. Lo advertimos en beneficio de 
todos los 
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EL UNICO JUEGO DE FUTBOL 
CON TODOS LOS JUGADORES 




PUEDES ELEGIR A 
TU ANTOJO. 



RECORTA Y ENVIA ESTE CUPON A: 4" SERMA 

CA BRAVO W1URILLO. N.° 37 7. 28Q2Q MADRID TELS.: 733 73 1 1 - 733 74 64 



¡TITULO IPRECIOI CANTIDAD 1 NOMBRE Y APFI 1 IDOS- 




¡KONAMI FUTBOL 1 4800 | | 


niRFrcioN- 


POBLACION: PROVINCIA ■ 

ICODIGO POSTAL: FORMA DE PAGO: ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 


LOS CARTUCHOS DE Konamk SON COMPATIBLES EN TODOS 

LOS ORDENADORES MSX DE LAS MARCAS: 
§©ny, Tsshlba, Cannsn, Mitsubishi, Dynadata, Yashlca, Sanyo 
National Panasonle, Philips, 





¡¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 




BÜLKTIN DE PEDIDO 

Sí, deseo recibir h..v nn-n,.. U nimu-m- .„ ..... ,!,• MS\ < I Uli 1)1 I'KIK, RAMAS, libre de 




Programa ■ 



■Por José García Ruiz ■ 



DAMAS 



Este es un magnífico progra- 
ma de Damas de gran cali- 
dad, aunque siempre se pue- 
de mejorar, diseñado por 
uno de los colaboradores de 
nuestro Departamento de 
Programación. 



60 CLS:COLOR 1,11,4: SCREEN 3:0PEN "GRPl" 
ASN 1 :KEY OFF 
70 C$="DAMAS" 

80 D$= "05L4AB06C05L8BAL4BGAEFL8EDL4EL8DC 



223+1, 123+13 



) PLAY D*.E*.F¡ 
) FOR .1 = 1 TO 5 
) FORI=1TO10 
) LINEC23-I.47- 
1 NEXTI 
i K*=MID*CC*.1,I3 
i PSETC53.753. 11 :PRIN" 
) FOR- J=l TO 250:NEXT 
) LINEC53.753-C200. 111 
) NEXT " 



3 FOR I 



TO 4 



. TO 50:NEXT , 



3 PSET C50,78D,li:PRINT#l.C* 

3 FOR 1=1 TO 2000:NEXT I 

3 CLS ¡COLOR l,ll.ll:SCREEN2.0 



0 BEEP ■ 

0 FOR X=31T0 175 STEP48 

0 FOR V=22T0 176 STEP44 

0 LINECX.Y3-CX+24.Y+223, 15.BF 

0 BEEP 

0 F0RX=19 TO 175 STEP 48 
0 FOR Y=11T059 STEP 44 
0 C IRCLE CX, Y ] , 9, 7 
0 PAINTCX.Y3.7.7 



>ulsarse F2 y F5 pí 



460 BEEP 
470 NEXT Y, X 

480 F0RX=43 TO 199 STEP 48 
490 CIRCLECX.333.9.7 
500 PAINTCX.333.7.7 
510 BEEP 
520 NEXT X 

530 f0rx=43 to 199 step 48 
540 for y=121t0165 step 44 
:rclei 



.9,9 
3.9.9 



560 P 
570 BEEP 
580 NEXTY.X 

590 F0RX=19 TO 175 STEP 48 
600 CIRCLECX. 1433.9.9 
610 PAINTCX. 1433.9,9 
620 BEEP 

650 B=l 

660 FOR 1=6 TO 164 STEP 44 

670 PSETC196.I3,l:PRINT#l.B 

680 PSET C 196. 1+223. 15 :PRINT#1.B+1 

690 B=B+2 

710 PRESETC 16. 1803 

720 PR I NTtt 1 , "A B C D E F G H" 

730 LINEC216. 143-C247. 603.3. BF 

740 PSET C 224. 1 5 3 . 3 :PR I NTtt 1 . "DE" 

750 LINEC216.243-C247.243. 1 

760 PSETC228,413,3:PRINT#1, "A" 

770 LINEC216.393-C247, 393.1 

780 LINEC216.493-C247, 493.1 

790 LINEC215. 133-C248.613. l.B 

800 A$="ABCDEFGH" 

810 B*=" 12345678" 

820 ONKEY GOSUB 1 990. 2290 . . . 2340 :<EY C 1 3 
ON:KEYC23 ON:KEYC53 ON 

830 ' IDENTIFICACION COORDENADAS FICHAS 

850 IF K$=" "THEN 840 

860 FOR 1=1 TO 8 

870 IF K*=MIO*CA*. I. 13THEN 900 

880 NEXT I 

890 GOTO 840 

900 PSETC224.283.3:PRINTttl,K* 

910 K*=INKEY* 

920 IF K*="" THEN 910 



Programas ■ 



FOR L=l TO 8 

IF K*=MID*CB*.L. 13THEN 9; 
953 NEXT L 
960 GOTO 910 

970 PSETC234.283.3:PRINT#1,KS 
"3 PLAY"L16U1305G06C" 

3 K*=INKEY* 

30 IF K$="" THEN 990 



3 NEXT 



13 THEN 1050 



1040 GOTO 990 

1050 PSETC224.523.3:PRINTtH,K* 

1060 K*=INKEY* 

1070 IF K*="" THEN 1060 

1080 FOR M=l TO 8 

1090 IF K*=MID*CB*.M.13THEN 1120 



LSE GOTO 1540 



' 1 <Y2 THEN GOSUB 1770 E 



- C=4 AND POIN 



GOTO 1460 
GOSUB 1770 

C=7 AND ABSCX1-X23=48 AND POIN'r 
1+223=15 THEN GOSUB 2370:GOTO 196 



Y TERM I NO 



:=9 THEN C=6 
Z=7 THEN C=< 

FICHAS 

9. 15 
5. 15 



1190 OPOINTCXl.Yi: 
1200 GOSUB 1630 
1210 'CAMBIO COLOR 
1220 IF Y2=ll AND < 
1230 IF Y2=165 AND 
1240 'rlOUIMIENTO DE 
1250 CIRCLE rXl.Yl- 
1260 PAINTCX1.Y13. 

1270 IF Y2=Yl+22 OR Y2=Y!-22 THEN CIRCLE 
CX2.Y23.9.C:PAINTCX2.Y23.C,C:GOSUB 1880 
1280 X=X1 

1290 'ANULACION ERRORES SEGUN LAS CUATRO 

I MOUIMIENTO 

■C Y1>Y2 THEN GOSUB 1770 E 

__. 1-X23=48 AND POINTC 
1-221 = 15 THEN GOSUB 2370 :GOTO 1960 



DIRECCIONES C 



F C=6 AND.PO: 



:X+24.Y-221<>15 THEN G 



1340 PAINTCX.Y3. 15, 1 

1350 x=X+24:Y=Y-22 

1360 IF Y=Y2 THEN ! 

1370 GOTO 1300 

1380 IFX1>X2 AND * 



NTCX.Y3015 AND POIN1 



3 2370:GOTO 19 



>Y2 THEN GOSUB 1770 E 

:X1-X23=48 AND POINT . 
.-223=15 THEN GOSUB 2370:GOTO 196 



j THEN GOSUB 2370 :G 



IGEN 
1670 
. THEN 



' C=7 AND Y2<Y1 THEN GOSUB 2370 :GO 
) 

: X1=X2 OR Y1=Y2 THEN GOSUB 2370:G 
¡0 

□ENTIFICACION COLOR COORDENADA OR 

P0INTCX1.Y13=15 OR POI NTCX1 , Yl 3 = 
GOSUB 2370:GOTO 1880 
DENTIFICAGION COLOR CUADRADO DEST 

P0INTCX2.Y23O15 THEN GOSUB 2370 
880 

IMITACION MOUIMIENT0 FICHAS 

C=7AN0 ABSC X 1 -X23 > 48 OR C=9 A 
■X23>48 THEN GOSUB 2370:GOTO 18 
•IDENTIFICACION MOUIMIENTO DIAGONAL 



OABSCG3 THEN GOSUB 2370:G 



í ANULACION ERROR COMER FI 
:X,Y3=6 THEN GOSUB 



3 'SUBRUTINf 
3 PROPIAS 

- C=6 AND POIN" 
3:GOTO 1960 

- C=6 AND POINTCX,Y3=9 THEN GOSUB 



3 THEN GOSUB 2 
=6 THEN GOSUB 
7 THEN GOSUB 2 
=4 THEN GOSUB 



370:GOTO 1960 



;=9 AND POII-. 
" 1960 

? AND POINT 

1980 

=7 AND POIS 



Programa i 




Test de 


istado 




















10 - 0 

20 - 58 
30 - 58 


370 - 


158 


730 
740 
750 


-?33 
- 20 


090 

100 


- 37 
208 


1450 


-106 


18-.0 
1820 




2180 - 28 


50 - 58 




'96 


770 


- 50 








-194 


1830 




2190 - 18 
2200 - !2 


60 - 77 
70 - 0 


420 - 


30 


780 








'.490 

1508 


-129 


1850 


- '.42 


2218 - 97 
2220 -122 


90 -204 






820 


-188 
- 6! 
-187 . 




- 69 


1520 
1530 


-!68 
-285 
-80 




■2'.5 


2230 -129 
2240 -200 


120 -187 


470 - 
480 - 


205 


838 
840 


- 58 






1558 


-:3S 


-.900 






130 -190 
140 - 13 


490 - 
500 - 


75 
76 


850 


- 96 


210 


■255 


1560 
1570 




1920 
1930 






150 -204 
1S0 - 75 


520 - 




870 
880 


-190 
- 67 
-204 


220 
230 


-132 


1580 
1590 


-129 




-250 
- 58 










898 

900 


226 
- 52 


r~¿ 

260 


- 58 
-220 


1600 
1610 


-205 


1960 
1970 


- 45 








121 


920 




270 


■227 


1620 


58 
192 




-258 
- 58 




220 174 


570 - 
580 - 


192 
96 


930 
940 






-220 
- 58 




.92 

120 


2000 
2010 


- 82 
-204 


2370 -183 


230 -132 

240 -110 


590 - 
500 - 


157 












'.22 


2020 
2030 


-'.95 




25? -238 
250 -204 


610 - 
620 - 


.22 
.92 


970 








¡700 




2040 

2050 


-190 






638 - 
640 - 


".9 

5 


930 

1000 




?:¿ 


-129 
-169 






2060 

2070 


-284 


2¿3e -234 




650 - 


67 


! 020 






-22:-. 
-176 




58 


2080 


-223 
- 97 






670 - 
688 - 




1030 




380 


- 21 
-198 






2100 


- 28 




330 -123 


690 - 
700 - 


119 


1050 
1060 




400 
410 


- 94 

- 92 


1773 




2120 
2130 


- 91 
-!93 




'53 -192 


710 - 


34 






420 


-129 


1780 
1?90 






- 56 


H 



RTFiNlTRWTflOS A 




UN SOFTWARE DE ALTA CALIDAD PARA MSX 


KRYPT9N 






QUINIELAS 


m 


KMFTOJT. La batallarais tutu Oslas ¿al 
dffiRÚts4.ün]iiego cuya popularidad es ca< 




■ . 

«tos,etaPVP. 700 Ptas. 




roa que la engordan. Tanto laa murallas que 
mortales para ella PVF. 600 Ptas. 


bÜ& r 










y peligros que encierran los laberínticos pa 


Hllombre y apellidos: IT! 

Dirección: 


| Población: CP Pro» Tel.: | 

, □ KRYPTON Ptas. 600- □ SNAKE Ptas. 600- 

□ Ü-BOOT Ptas. 700- □ EL SECRETO DE LA PffiAMIDE PtU.700,- 

□ QUINIELAS Ptas. 700- 

. Gastos de envío cerUflcado por cada cassette Ptas. 70- , 

Remito talón b&ncarlo de Ptas. a la orden de Manhattan Transíer, SA 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

MSX CLUB DE CASSETTES. ROCA I BATLLE, 10- 12 BAJOS. 08023 BARCELONA 


NUESTRAS CASSETTES l 


0 SE VENDEN EN QUIOSCOS. LA 
i. NUESTRA REDACCION. ¡NO SE 


UNICA FORMA DE ADQUIRI 
ADMITE COMPRA REEMBOL 


RLAS ES SOLICITANDOLAS 

SO! 



MSX por dentro ■ 



ANTES DE LLAMAR AL 
SERVICIO TECNICO... 



VERIFIQUE SU 
APARATO 



Más de un usuario de MSX se ha encon- 
trado con algún problema (aparentemente 
insoluble) que le ha llevado a creer (en mu- 
chos casos erróneamente) que su ordena- 
dor o algún periférico padece una avería 
seria. Para ayudar a nuestros lectores a de- 
tectar las posibles averías de sus aparatos, 
ahí van unos cuantos consejos de utilidad 
que recomendamos se pongan en práctica 
antes de llamar al servicio técnico. 



CUANDO EL ORDENADOR 
NO SE ENCIENDE 




MSX por dentro ■ 



■Por Willy Miragall, 



SCREEN 2 EN 
ALTA VELOCIDAD 



Os presentamos en estas pá- 
ginas una rutina de impre- 
sión rápida en modo gráfico. 
Con ella podréis solucionar 
el frecuente problema del 
«emborrachamiento» de los 
textos en las pantallas gráfi- 
cas; el borrado de los mismos 
y notar un ostensible au- 
mento de velocidad. 



10 SCREEN 2 

15 OPEN «GRP:» AS #1 

20 PRESET (50,60) 

25 COLOR 11 

30 PRINT #1, «WILLY»; 

35 COLOR 8 

40 PRINT #1, «OS SALUDA 
DESDE» 

45 PRESET (100,80) 
50 COLOR 7 

55 PRINT #1, «MSX CLUB» 
60 CLOSE 
65 GOTO 65^ 

serios inconvenientes. Ya os habréis 
dado cuenta aquellos que lo hayáis uti- 
lizado en vuestros programas. Los 

I a \clocidad de impresión es sensible- 



3 SCREEN 2 

5 OPEN «GRP:» AS #1 

3 PRESET (100,92) 

5 PRINT #1, «OPQRST» 

3 FOR X = l TO 300: NEXT X 

5 PRESET (100,92) 

3 PRINT #1, «ABCDEF» 

i CLOSE 

3 FOR X=l TO 300: NEXT X 
¡ GOTO 10 

Cómo solucionar estos dos 
problemas? 



remezclen (se emborrachen, en n 
ro argot), hay un procedimiento 



sencillo como evidente, consistente en dríamos que insertar la siguiente líne; 

borrar las letras antes de escribir otra 32 LINE (100,92)— (147,99),4,BF 

vez en ese lugar. Pero este procedimiento hace que t< 

Siguiendo con el ejemplo anterior, ten- davía sea más lenta la impresión de u 



455 ' 456-1. 

56 W 0 




MSX por dentro ■ 



ínea 50000. 

'Grabadlo con SAVE «RUTINA,. 
'Unidlo a vuestros programas hacie 
Jo MERGE .RUTINA». 



Cuando hayáis asignado los valores a 
i-si.is v.in.iblcs, ya podéis hacer GO- 
SUB 50000. Que programéis a gusto! 

Programa cargador: 

10 KEY OFF: CLS: WIDHT 40 
20 CLEAR 200, &HBFFF 
30 FOR X = & HC000 TO &HC05A 
40 READ A$ 

50 POKE X, VAL ("8cH"+A$) 
60 NEXT X 

70 LOCATE 0, 11: PRINT "Pulse 
RECORD/PLAY en el cassette y 
ENTER» 

80 A$=INPUT$ (1): IF A$OCHR$ 



(13) THEN 80 

90 BSAVE "HIPRNT", &HC000, 

&HC05A 

100 END 



140 DATA 00, 00, 00, 0E, 00, 3A, 00, 
C0, CB, 27, CB, 27, CB, 27, 6F, 3A, 
01, C0, 67, 22, 59, C0, CD 
150 DATA DF, 07, CD, 8A, 2F, 7E, 



160 DATA 5A, 10, FC, 06, 08, 7E, D3, 
98, 23, 10, FA, El, 23, 0C, 18, DE, 2A, 
59, C0, 11, 00, 20, B7 
170 DATA ED, 5A, CD, DF, 07, 3A, 
02, C0, 06, 08, D3, 98, EB, EB, 10, FA, 
0D, 20, F5, C9, 00, 00 

Programa de ejemplo: 

10 CLEAR 200, &HBFFF 

11 BLOAD "HIPRNT" 

12 DEF USR = &HC003' »» INICIO 

13 SCREEN 2 

14 POKE &HC000, 10' *• CO- 
ORDENADA X *• 

15 POKE &HC001, 15' *» CO- 
ORDENADA Y »• 

16 POKE &HC002, 202' COLOR 

17 A$="Aquí, allá..." + CHR$ (0) 
18X = VARPTR (A$) 

19 X = USR (PEEK (X+2)'256 + PE- 



EK (X+l)-65536!) 

20 A$=INPUT$ (1) 

21 END 



10 CLEAR 200, $HBFFF 
20 BLOAD "HIPRNT" 
30 DEF USR = &HC003' •» INICIO 



50 ' »»» AQUI VA TU PROGRAMA 



70 SCREEN 2 

80 XR = 10' COORDENADA X 
90 YR=10' COORDENADA Y 
100 CT=12' COLOR TEXTO 
110 CF=10' COLOR FONDO 
115FORX = l TO 10 
120 TX$=" OS SALUDO" 
125 XR=X 

130 GOSUB 50000' »»» IMPRESION 

135 NEXT X 
140 GOTO 140 
50000 ' 

50010 ' LLAMADA A HIPRINT 

50030 POKE &HC000, XR 
50040 POKE &HC001, YR 
50050 POKE &HC002, CH16+CF 
50060 TX$=TX$+CHR$ (0) 
50070 PV=VARPTR (TH$) 
50080 PV = USR (PEEK (PV+2) * 256 
+ PEEK (PV+1)- 65536!) 
50090 RETURN 



SUSCRIBETE 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX < :i l'B 1)1. I'K( KiRAMAS en u, casa M no que recibirás 12 
números pagando sólo 10 

BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



,eo suscribirme por doce números a la h-mm., MSX < 1 US DE PROGRAMAS a partir 
: pago ad|untan3o talón a la orden de: MANHATTAN TRANSFER, S.A. - C/^Roc 
Tarifas : España por correo normal Ptas. 1 . 750,— 
Europa por correo normal Ptas. 2.0C 
Europa por correo aéreo Ptas. 2.5C 
América por a 



i e Ba¡ñe, r !0- 



i: i: :W23 Barcelona 



Importante: Colocar en el so 



MUY PRONTO EN TU QUIOSCO 




La primera 
revista de la 
II generación 



OTRO PRODUCTO MANHATTAN TRANSFER,® SJL 



El MSX en expansión ■ 



UN ESTANDAR 
DE FUTURO 



La compatibilidad de los MSX y la exl 
ordinaria potencia de su lenguaje hacen de 
este sistema el más racional y de mayor 
futuro. Sus propias características y la s 
riedad de sus fabricantes le permiten i 
sertarse naturalmente en la sociedad y 
«conectar» con fluidez las tareas del no- 



el c 



luta? 

2. ¿Es compatible el siste- 
ma operativo para disco 
MSX (MSX-DOS) con 
los sistemas MS-DOS y 
CP/M? 

3. ¿Existe alguna posibili- 
dad de que los usuarios 
particulares y los cole- 
gios que adopten MSX 
queden aislados en el 



fut 
. ¿Cuál 
software para MSX, 
especial el dedicado 



i. ¿Hay periféricos ade- 
cuados para operar en 
las escuelas, tales como 
los llamados «aulas in- 
formáticas»? 

i. ¿Las compañías que 
han desarrollado el sis- 
tema MSX continúan 
apoyándolo como al 
principio? 





El MSX en expansión 



o«e ¿i deáúón define la política de 20 
fabricantes de primera línea. La preo- 
cupaáón por el aislamiento es para el 
< aso de [.¡lineantes con políticas de pro- 
moción, precios o sistemas cuya validez 
es a corto plazo, pero en ningún caso 
para un grupo con las posibilidades del 
MSX. 

Antonio Roldan, Software 
Manager de Philips, responde 
de modo explítico y razonado 
a las preguntas básicas que 
preocupan tanto a los actuales 
los 



/. Si. Cualquier fabricante que haya 
obtenido la licencia de Microsoft debe 
máquinas de acuerdo con las 



decir que todo aparato del 
MSX debe contar con rutinas BIOS 

Con respecto al software la compatibili- 
dad es total, aunque hemos detectado 
que algunos fabricantes de software 



«cft. En c 



¡o ajustarse a las nt 



tibies. También lo son los periféricos. 

'scon "r'p "™ ge '"í 0 ™"" 6 " y & ara "- 
Como sabemos el MS-DOS fue des- 



MjxtieZnlnode8Ls,)7com'f 



nuestro aparato profesional YES: 
compatible con los MSX. 
El CP/M tiene compatibilidad casi roí 
con el MSX una vez que se haya form 
teado el disco en MSX DOS. Incluso 
compatible su código. 



der si adoptan el sistema 

bien el aislamiento puede darse 



XfiaTd^MSX.'^mZTdesTtxtra' 
•diñaría compatibilidad y el apoyo se 



•isto sorprendi- 




i versión 1.0 (MSX l)y futuras^er- 
ZoMsTl"' C ° m " 



trd, Microsoft Corporation y ASCII 



cartuchos en cualquier slot, etc. 
2. El MSX. DOS (MSX Disk Opera 
System), se creó con la ¡dea de pro 

potente y funcional para el usuari 
ordenadores domésticos. Para elle 

operativos más populares hasta el 



- MS.DOS: Sistema Operatiifo para 
ordenadores de 16 bits, (utilizado por 
los PC,s de IBM y compatibles). 

MSX. DOS, incorpora lo mejor de ca- 
da uno de ellos, consiguiendo así crear 

para ordenadores de 8 bits. 

De todas formas, al ser una mezcla 
de ambos, no podemos hablar de com- 
patibilidad absoluta con MSX. DOS, 
debido principalmente al hecho de no 
disponer, en la versión de base, de 80 
caracteres en la pantalla, para poder 
aprovechar el televisor convencional 
como elemento de visuaüzacion Utili- 
zando la tarjeta de ampliación a 80 co- 
lumnas, o la nueva versión MSX 2, po- 
dríamos hablar de compatibilidad al 

MSX LV l ° ría leía*" Htilizarse e " 

compatibilidad^ con ° MS.DOS^se' en- 
de forma que los datos grabados con un 
PC de IBM (MS.DOS), pueden leerse 
utilizando un ordenador MSX. 

De todas formas, a pesar de las polé- 
micas creadas con la compatibilidad en- 

tener en cuenta, queCP/M^es un siste- 
ma que ha quedado anticuado (1975) y 
que, además, todos los programas bajo 
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Programa ^^^^^^aPor Francisco y Benito Zurdo H 



Instructivo programa edu- 
cativo que servirá para que 
los estudiantes puedan cono- 
cer el recorrido del Halley a 

COMETA HALLEY 




110 DRAWC13R225" 

120 FORA--0TO4000:NEXT 

130 &OSUB1180 



150 ' MENU 

170 SCREEN0:u;IDTH40:COLOR4. 1 5 :CLS :KEYOFF 
:PRINTTABC12:i ' COMETA HALLEY-86" :L0CATE4. 
5:PRINT". Reco-rido ent-e las constelad 

¡da en el c~e '.o " :: 0CATE15. ;5 :°RINT" [TABl 
-F¡nal":LOCA T C4.20 

180 PRlNT^áelecc ¡ona con la f lecha. TRETU 

190 COLOR ll:l.0CATE2.5: B RINT>"- 

200 IFST!CKr0]--5rnENLOCA r E2. -.0:PR!NT-> " : 

L0CATE2.5;=RINT" " :éi=1 

210 I F8 T : CK f 0 1 -- 1 r HCN'_ OC A T 2 . 5 : =R I N r •> '■ : L 
0CATE2. 10:<>RINr" • :A"-2 




10 '******* COMETA — HALLEY ******* 
20 '* POR Francisco J.Y BENITO 2.* 
30 •* PARA MSX-CLUB * 

40 ' ****************************** 

50 . 

60 • CABECERA 

70 • 

80 SCREEN2:C0L0R 15. 1 , 1 :CLS :DRAW"BM85. 14 
0C8D10U5R10U5D10BR5C11U10R10P10U5L10BR15 
C8U5D10R1 0BR5C1 1 Rl 01 1 0U 1 0BR 1 5C8R1 0L 10D5N 
R'í :5r;m¡:; ."iNFS'a'- 

90 0PEN"GRP:'AS#1 :PRESETC20.951 :PR[NT¡tI. 

0. 1105 :PRINTt»l. '■Ó.P.A.T. - 1985" :CLOSE 
100 CIRCLEC30.50V20. 14 :PA !NT r 30. 501 . 14 : 
CIRCLEC30.50]. !0,8:PAINTC30.50 3.8:QRAWC 
14BU19NM255. 10BO39NM255. 90" :PA INT C90. 501 
.14: DRAdi " BM30 . 50BU5C8NM255 . 30BD 1 0NM255 . 7 
0" :PAINTC90.501.8 



Programa ■ 



210 60 r Q 200 



u.'D r h36:Cl S:END 



- EJES CELESTES - 



3 CL OSE :SCREEN2.0: COLOR 8. 1 . 1 :CLS :X^É 

:n"gr":- nsa: 

3 LINEC23.155D-C232.155JU INF:r23.51-í 



V-23 r C230S r E°2-..8:l INCrfl. 1543-C 



. 1651:°RINTH1."10" ;d( 
1.-12" ¡PRESEAS. 165 
rC!05. 1651 :PRrNrt,l. "' 
PRW#l.*t8- :°RESE r r: 
■' :-PRESE r r 172. 1651 :°R 
3. 1651 

330 PRÍN'm. ■ 
. "26" :C01 OR 1 



::NDf..-8":PRESErC37 
!ESErc63. 1651 :pr:nt# 

:«r:nt#i."i4» : °rese 

6" ¡PRESETE?. 1651 : 
50. 1655 :°R:Nrt,l. -20 
NT*;,' 22- : D RESE r C 1 9 

;ESE r C215.165: :°R¡NT(»! 



} DIAS v COORDEN.-iDOS- 



3.85.87.21.9 



í.83.27. 111.85.3.130.97.5. 
380 DQTA83. 1-10. 16.86. 130, 1 
.19.94.85.20.96.77.2'.! ! 
!. 104.45.24. 107.38.25. 1 



3 RESTORE370 :roR fl T05 :REñOC. O.E :CIRCL 
C.D3. 1 :L :NEfC.Dl-rc-5.D-7) :i INECC.DÍ-C 
3.0-83 :PRrSEU70. 1 80 3 : p RI NTít í , • - 




-fCi-9.D-23l :L IN 
. !NECC.Dl-rCi6. 0-293 

l-CCf 15.D-IS3 :l 
:l !NECC.Dl-CC+¡8. 0-283 



) .Tn- 2 r hENDR£lur91 
) ¡Fa--4ThEN0Rflu;■ 8192.95H0BU2N192.95" 



3 :' !N¿f 25.41- hi-xvil:. : 
<28i¿. 191 1,. 1 ,B r ¡RETURN 



31. 77. 170.70. 167.77. 178.6! . !80. 
. 195.72. 182.73. 178.78. 175,8 
, 20.66. 25. 72. ?'í. 7?. 2: . 74.?; 



3 DflTq 148.88. 150. 89. 151 . 93. :52.96. 15< 
, 148.95. 146.97. 144. ; 03. 143. 106. '.43. 1 ! 
»0. 1 10. 136, 1 '.0. 135. ! 06. 137. : 34. 139, ; í 



800 DO rc>23. 45. 1 .33.44, ] ; .48.46.21.65. 

I 1 .85.68. 2! .93.73. 1.96. 75. 1 ' . 
10.79. '. . !04.82. 1 '. . '.05,85.2!. U 



¡9163. 80165 . 82170. 88S'15S . 92162 . S516« 
■ d* - L * oa'. lena" :GOSUB970 
840 ORAW S160 , 45158. 44154 . 38156 . 35158 . 4 
■ S--"P'.é>iad8S" :GOSUB970:DRAuj 'S197. 47190 



3 DRAUÍ-BMÍ23.9S 
.95M124.96H-.27. 
1128.99BM129.8e 



880 DRAÚ"BM169.95M¡72.S7M190. 102M193. 101 
M200.86M203.86M205.83" :A*="Hidrft" :G0SUB9 
70:DRAW"BM190,58M195.52M195.57BM203.48M2 
05.49Brl204.60M205.56BM2!0.49M208.47":A*= 



- BUCLE PRINCIPAL - 



920 RESTORr:800:rORS--lTO21 :READC . D. E :PUTS 

PRITE0, rc.D i. 15. 1 :GOSUB970:NEXT 

930 C*^=INKEY& : IFC*--CHR*C 131THEN170ELSE93 



D DE FECHA 



970 L,y:i'70. 1771 -r 200. 1911. l.BF 

980 irn-0THENl!20 

990 IFA<3THENA$'-"Nouiambre" 

1000 IFA>3rNDA<5THENA*--"D¡c ¡embré 

1010 IFA>6ANDA<9THENA*=-'' Enero" 



!ESETr?5. 184'. :pr;n:.i 
"STRIGr03--0THEN1070 



- CAMBIO DE NOMBRE - 



¡50 • 



3-0ThENie 



NSTRUCC IONES 

80 SCREEN 1 : Lü I D T H31 : KL v O rr ¡COLOR 15.4.4 
•r-SSERUACION NITIDA EN EL CIE 
INf'En e! eje g 



:CI S 



lulos 



b : 



Test de listado ■ 



■ Cometa Halley ■ 



-.58 212 -10( 

- 58 220 -101 

- 58 230 -208 



390 - 58 580 -233 770 - 
400 - 58 590 - 58 780 - 



50 - 58 240 - 95 430 - 



420 -133 610 - 58 



) " 58 250 - 58 



630 -239 820 - 



450 -134 640 -201 



120 - 



310 



340 - 58 



30 - 59 
140 - 58 330 -15? 

1}: 



•137 690 - í 



I - 29 890 - 58 



-129 750 - 85 940 - 



Programa ■ 



■Por José A. Gutiérrez» 



TEST 

MONOGRAFICO 



Este pequeño programa di- 
dáctico te permite compro- 
bar el grado de conocimiento 
con respecto a la ubicación 
de las principales ciudades 
españolas. 



10 REM *********************** 
20 REM *** TEST GEOGRAFICO *** 
30 REM *** POR *** 

REM *** JOSE A GUTIERREZ*** 
50 REM *** PARA *** 

60 REM *** MSX CLUB *** 

70 REM **************** *** **** 



120 .OPEN"grp: "FOROUTPUTASttl 



140 X 



-(Y, A) 



160 NEXTA 
170 LINEC26, 1 10>-<234, 130), 6, BF 
1 80 DRAW'BmSO , 50c2r 1 Odl 012d4r6u412u 
1 Or 1 0d401 1 Oul 0r2u416d4r2dl 01 1 0u40" 
1 90 DRAW'broSO , 59c2r7d3r3d291 1 0u32" 
200 DRAW"bm96,50c2r21dl01Sd2r2d2311 



210 DRAW'bful 35,S0c2r 
S115ul0rl0d3i-2u912d3 
12d3110ul0" 

i DRAW"bn,165,59c2r 



240 F0RT=1 T01 000 : NEXTT I PAINTf 52 , 52 > 

D,2:PAINTC98,S2),2:PA 

PAINTClf- 



: 1 37 , 52 
3, 52), 2 
250 DRAW'br 

270 FORAB= 
280 PAINTCÍ 

290 FORT= 

MIO b-G+ ! 

330 E»C2> = ' 

3 50 CIRCLE' 

0 PAINT' 
370 FDRAX=' 



,S0c9rl0d7: 



|0. 3 5l 5, 



01Sd2r2d281 



67,52) , 
08STEP2 

TEST" 

O ) , 90 , F 
28, 170), P 



9:forab=ito200:nex 



=1T0LENCE*CG)) 
"»0 DRAW"bm65, 167" : PRINT» 1 ,LEFT»<E* 

) :F0RAB=1T050:NEXTAB 
390 NEXTAX 

410 NEXTP 



difícil el solucionarlo" :F0RD=1 TOS 
500 PRINT:PRINT:PRINT"A continuad* 

ad a la que pertenece cada punto, ir 
án aparee iendolos demás .": FORD=l T04 

oooinextdicls 

510 PRINT ¡PRINT: PRINT :PRINT"Lo« non 
bres de las ciudades deberás introd 
uc irlos en mayúsculas" : F0RD=1 T02000 
:NEXTD:CLS 

520 PRINT : PRINT ! PRINT ! PRINT ! PRINT ¡ P 
RINT" BUENA SUERTE" :F0RD= 

1 T01 500 : NEXTD : CLS ¡ F0RD-1T01 500 : COSU 
Bl 080 : F0RDE=1 T0500 ! NEXTDE ¡ G0SUB640 ■ 
530 F0RD=1T03500: NEXTD: CLS 
540 FOR A=0T0V 
550 READB* 

570 INPUT"Que ciudad es"; A* 
580 IFA»=B*THEN630 
590 X*=INKEY* 



5" THENRUNELSEEND 
) : NEXTD : G0SUB640 



670 PSET (34,10) 

ü ■ 102!., 
700 READ A,B 



740 DATA 55,; 
0,5,72,7,74,5 



750 DATA 93 , 8 , 36 , 7 , 98 , 9 , 1 OS , 9 , 1 06 , 1 



> PRE3ET < 1 04 , 42 ) : PRINT #1 , " MIS 
S PRESET (104, ¿0 3 : PRINT ti 1 , " JUN 
) PRESET C30, 122) :PRINT #1 , "PUL 



:set 



i '.PRINT * 



" TE 



i K*=INKEY* 

> LINE C 160, 1 35)-C 1 70, 145) ,7,E 
) LINE C1S0,135)-C170,145),4,E 
• K*-"" THEN 160 
) PLAY "CDEFGAAGFEDCFAFAFAAA" 
) GOSUB 1090 

) COLOR 1 , 7, 1 :cls:close#i 



R I NT 



IUEG0 C 



V-¡! ■ 



LEON 



CADA 

350 PUNTOS PASARAS UNA PANTALLA 
v ÜC1! !.!I)RAS UNA NUEVA VIDA. " 
240 LOCATE 3, 20: PRINT "Elige ni ve 
1 : 1 /2/3" :NV*=INKEY* 
250 NV=VALCNV*) 
260 IF NV>3 OR NV<1 THEN 240 
270 ST-NV : JP-3 : P T=0 ; P=0 : Y=l 30 ! A=l 



i SCREEN 2 : CLS 

) ÜPEN"bRP: " AS#1 

) REM DIBUJO DE PANTALLA/SPRITE 

> LINECO, O )-< 255,20) ,4,BF 

■ PSE l'i 60,0) , 10: DRAW"D5R1 ODER I O 

¡1 0D5R1 00U5R1 0U5R1 0U5R1 0U5" 



) P A I NT (30, 15) , 10¡PAINTC240, 1 



) PSETC2, 10) :PRINT#1 , PT 

) PSETC 204, 1 1 ) : PRINT» 1 , "JEEPS" 

) PSET (220, O':, 10:DRAU"R20D10L2 



450 PSET C 220 , O ) : PRI NT» 1 , JP 

460 PSETC 10, 30) :PRINT#1 , "RECORD" 

470 PRESETÍ. 10,40) : PRINT» 1 , RC 

480 PSET C 33 ,90), 12: DRAW " M45 , 9SM! 



490 DRAWE5M55 , SSM45 , 70L5E5M35 , 70 

500 DRAWM32 , 651130 . 70M23 , 65M25 , 70 
Ml5,65F5L5" 

5 1 O DRAW" M5 , 3511 1 5 , 75F5L5M5 , 35M l 5 , 
S5R10" 

520 DRAW'Ml 5 , 90M.5 , l l OMl 5 , 35M27 , 90 
R5" 

•500 RAI NT 30, 30) , 12 

540 PSET (27, 170), 1 :DRAU"M15, l 30U5 
L5DSM22, 170R5" PA1N1 «20, 156), 1 
550 PSET C 15, 124) , 3 : DRAWF5D7M22 , 1 
30M17, 124P5M23 , 1 23U0L3C5L1 5" 
560 DRAWF5L7D1 0M6 , 1 23R3M4 , 1 33F5M 
7, 132M1 1 , 124R4" :PAINT C 13, 120), 3 
570 PSETC 33 , 1 70 ) , 1 ! DRAWM40 , 1 40E5 
R5GSM40, 170L7" ¡PAINTÍ40, 150) , 1 
580 PSETC 35, 1 34 ) , 2 : DRAW"R25!-l5Rr.H 1 
OD5M4S . 1 20M4 5 , 1 25U5M37 , 1 30R3M37 , 1 
35" ¡PAINTC4S, 130), 2 
590 LINE«27,90>-<33, 170), 1 , BF 
600 L I NE C 55 ,135)- ■ 60 , 1 40 ) , 2 , BF 



630 PSET C 240 , 1 00 ) , 1 5 : DRAWM250 . 65 
1-1255 , 75D29H I 0G5" : PA i N i" • 250 , 85 ) , 1 5 
640 SPRITEí f O ) = CHR*f &H0 ) t CHR'f C &H0 
¡+-CHRÍ.C S<¡ lf-3 ) ¡ CHlvt C !<HCO > i CHRÍC&HD4 
) + -CHR* C &HFF ) + CHR* ( &HFF ) + CHR* C &H42 

650 SPRITE*C1 )=CHR*(&H0)+CHR*C&H5 
4 ) '■ CHR$C 2,! 130 ■ i CHR'? C SU ¡ O ) +CHR* C &H 1 
O ) I CI -IR* C SI 123 ■ + CHR1. C &H28 ) +CHR* ( &H0 

660 SPR I TE* C 2 ) =CHR* C O ) +CHR* C O ) +CH 
R*C97) ICHR*C146)+CHRSC 102)+CHR*C 1 
26)+-CI!R*C66 i KL:HR*C 66 ) 
670 PUT SPR I TE 2 , < 2:35 , 1 54 ) , 1 
680 IF 0>0 THEN 720 



730 V=V+1 :IF V=6 THEN A=A+1 : V=0 
740 IF A=9 THEN A=0 
750 FOR X=8 TO 180 STEP NV+A : PUT 
SPRITE 1 , CRN, X) , 1 ¡GOSUB 760¡NEXT 

760 Q=STICKCCK) 

770 PUT SPRITE O , C Y , 1 54 ) , 1 

780 IF 0=3 THEN Y=Y+CNV+A) 



37 







— ™» — 








790 IF Q=7 THEN Y=Y-i;NV+A) 




xX< VQK W=u ro 5oo:hlEX1 W 


810 IF Y>210 THEN Y=210 

820 IF X • i 70 THEN PLAY"CBFA" : JP = J 




990 LOCATE 5,11 : PRINT" 
" : GOTO 950 


P-llPUT SPRITE 1 , CRN,X) , 1 5 : PUT SP 




1010 LOCATE 8,S:PRINT"LA PUNTUACI 


RITE 2,'(RN+20,X), 1 : FÜR W=0 TG 500 
1 NEXT WIPUT SPRITE 2 , C 235 , 1 54 ) , 1 : 
L I NE < 220 , 0 > - < 255 ,9), 1 0 , BF : PRESET 




¡020 LOCATE 6,8:PRINT NM* 

1 030 LOCATE 8,11: PRINT "FUE DE : " | P 


(220,0) :PRINT#1 , JP:F0R E=0 T0 350 
:NEXT E 

830 IF JP=0 THEN 940 




1040 LOCATE 8 ,14: F'RINT"EN NIVEL:" 


840 IF X>17r- 1 HFN 720 EL3E R'ETURN 
850 BEEP: X=5:PUT SPRITE 1,<RN,X), 




1050 LOCATE 8,17:PRINT"Y CON";C;" 
PANTALLAS" 


8G0 PT=PT+ 1 0 : L I NE ( 2 , 1 0 ) - C 70 , 20 ) , 1 




1060 FOR L=5 10 26 : LOCATE L,3:PRI 
NT"~": LOCATE L , 1 9 : PRINT"=" : NEXT L 


870 L I ME f 5 , J¿ ' - < £.0 , 52 > , 7 ', BF 




1070 LOCATE 5 , 20 : IMPUT" DESEAS JUG 
AR OTRA VEZ cS/N)";D* 


880 rRD.ÉTO.^0 . :P'":tNT#1 ,RC 




1080 IF D*="S" THEN CLS ¡ CL0SE#1 ! G 
OTO 240 ELSE END 


310 IF PT--r i '.'.i.. THEN JP=JP+1 : C=C+ 
I : G03UB ! 1 60 : PL'Vr'ACDLAAEDCA" :LIN 




1090 3CREEN 0 

1100 LOCATE 5,9:PRINT"Elige opcio 


EC220,05-C255, 10), 1 0 , BF '. PRESET < 22 
0,0) : PR I NT# 1 , JP : P=PT 




111 0.- TECLADO" 

1110 LOCATE 19, 1 1 : PRINT" 1 .- JOYST 


920 FÜR W=0 TO 250 : NEXT W: SPRITE 




1120 LOCATE 19, 13: PRINT" 2. - JOYST 


330 RETURN 




1130 LOCATE 26,14:INPUT CK 


950 SCREEN 0 




1140 IF CK<0 OR CK>2 THEN 1130 
1 1 50 3CREEN 2 : RETURN 


970 IF LEN <NM3-)>20 THEN LOCATE 5 




1160 PLAY "CDEFGCDEFGFAFA" : PSETí. 1 
5, 180) :PRINT#1 , "BRAVO, PASASTE LA 


, 1 1 : PRINT "DEMASIADO LARGO" EL SE 1 




PANTALLA ";C 
1170 FOR W=0 TO 1000: NEXT W:L1NE< 
RFTUF-N 














1 - 0 110 240 300 -22/1 490 - 88 680 -147 370 IOS 1060 - 38 

2 - 0 | .„:<„. 47 rt!>> 0 500 -IOS 630 - 76 830 -180 ¡ ,y/Q - 93 

6 o - :50 -2V4 540 - 16 730 .~S7 '-'-'ó 54 ' i Vo -¡24 

8 ISO 29 :/«.< -213 560 -197 y\Q -185 940 0 1130 -151 
3- 0 130 -80 380 - 63 570 - 25 730 -192 «350 -214 1140 -246 
'o i '•' " : " 25 f J< l "¡i4 580 _21? 770 •"' 16 960 " 75 1150 -1&0 

¡;f i;¡ |:l i: 2 ! |:;¡ ;| | 



